Option Explicit
'ۭqҲ
Private Sub CommandButton1_Click()
    Dim t     As Single
    Dim myStr
    With CommandButton1
        myStr = .Caption
        .Caption = "椤"
        DoEvents
        t = Timer + 2
        Do While t > Timer
        Loop
        .Caption = myStr
    End With
End Sub
